UNIVERSITY OF ILLINOIS 
DIGITAL COMPUTER 



LIBRARY ROUTINE K k - 171 



TITLE 

TYPE 
DURATION 



ACCURACY 



METHOD OF USE 



Analysis and Interc correlation of Scores Based on Paired 

Comparisons 

Entire Program 

Input program 21 seconds 

Read data 8N r[ e(e-l)/2 ] x 10 seconds 

Computation N (103 .2 + 80e + 63-5le(e»l)/2] ) x 10" 5 seconds 

Punch results 

a. Scores (optional) k^&Ne x 10 seconds 

D-. Sums and sums of 2.1 + *6ke + *69fe(e-l)/2] seconds 

squares (optional) 
c« Correlation coefficients «2e + .4[e(e-l)/2] seconds 
The accuracy of the scores, sums, and squares is as printed. 
The accuracy of the correlation coefficient depends on the 
size of the correlation, the variances and means of the 
elements being correlated and the number of groups . The 
absolute maximum of the error is given by the expression 



E 



E 



max 



. min 



10 2 + E 



where o~ . is 

Bin 



max 



the smallest of the element variances and E_ is the largest 

max 

of the element means ♦ An error this large is to be expected 
less than 1$ of the time. 

The master tape is read in until it stops, when the parameter 
tape is read in. The master tape is reinserted and read until 
it stops again, when the data tape is inserted. When the 
machine is started again the data are read, one group at a 
time, and the scores associated with the group are punched. 
(if the machine is started with the white switch instead of 
the black switch after insertion of the data, the print will 
be by-passed.) When all the data have been read, the master 
tape is inserted again and read until it stops * Raising the 
black switch at this point causes the sums and sums of squares 
of the scores to be printed, as well as the sums and sums 
of squares of proportions for individual pairs . Raising the 



-2- 

white switch at this stop causes this print to he "by-passed. 
In either case, the remainder of the program is read in and 
the upper half -matrix of off diagonal correlation coefficients 
punched. 
PURPOSE The program may be used whenever N groups of raters have 

chosen between each of the e(e-l)/2 pairs of statements or 
objects formed by all possible pairings of e elements. The 
score for each group with respect to each element is taken as 

i - e 
E. = Ep, ,, where p. . is the proportion of the raters who 

i=i, jA 

chose the element e. in preference to the element e.. 

Int ere orr elation of the scores. E. and E., will be 

biased if the proportion based on the pair e.e. is included, 

since p. . = 1 - p..* Therefore to obtain the int ere orr elation 

ij iJ 
we base it on the scores 

E 1 . = E. - p. . and E 1 . = E. - (l + p. . ) 

The usual formula for the product -moment correlation becomes, 
with this modification 

n(Ee.e. - Ee. + Ee.p. . - Ee.p. . + Ep. . - Ep. . 

_ i j i i ij j ij ij ij * 

E i E j t n(Ee? - 2Ee. p . . + E P 2 . . ) - (Ee. - E P . . f ] l/2 

1 i ij ij i ij 



r 



- (Ee. - Ep . . ) (Ee . - n + Ep . . ) 

* , * ^ -J , 1J 

[n(EeT: -,2Se/+ 2EE.P., + K - 2Ep.-; + Ep 2 .) - (Es.-N+Ep. .) 2 ] 1/2 
o J jt-ij ij ij V j- ij 

In order to compute r _ , therefore, it is necessary to 

1 J 

q 
accumulate, as the data are read in, the values Ee., Ee. t . 

Ep. ., Ep . ., EE.p. ., Ee.p. . . These values are accumulated 

over all groups and the punching described under Method of 

Use performed before the correlation coeffieients are calculated 

and punched. 

The program will handle up to sixteen elements . The 

* The formula, being too long for one line, has been broken here. 
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FAEAMETER TAPE 



DATA TAPE 



number of groups which may he scored without exceeding capacity 
is found from the formula 



N = 



5*5 x 10 



7 



(e-2)' 



In the case of the maximum number of elements N = 530. 

The program may be used for any number of raters in any 
group, including the special case where each rating is performed 
by one rater . 

A parameter tape must be prepared as follows: 
00 3k 

e = number of elements 
K = number of groups 

r = number of digits required to specify 
largest rater group 



00 FOOeF 
00 F00BF 
00 FOOrF 



2k 999N 
The data are punched in the following manner « Let a be the 

-'-cl 

number of raters who responded to the pair formed by elements 
e . e . by chc 
choosing e. 



e.e. by choosing e., and b. . be the number who responded by 
i J i iJ 

Then the data tape is punched 



a 12* ^12* a 13* b 13 
" a 23* b 25a 



a le* \e 



2e* 2e 



OUTPUT 



a ., 3 b _ 

e-1 7 e e~l,e 

Each frequency is punched, without sign^ but must contain the 
number of digits specified as r in the parameter tape, No 
terminating symbols are necessary. 
The printed results contain: 

1* The scores for each group with respect to each element 
J = e-1 

E. = Zp. . 

i ij 

This value is printed as a five digit number with 3 figures 



to the right of the decimal. The scores are arranged 6 per 
line, -with a double line feed between the scores for successive 
rater groups « 

2. Sum E is printed, followed by the e summed values 
g = N 

Se. printed 6 per line. This value is printed as a 7 

g = 1 
digit number with 3 places to the right of the decimal. 

3. Sum E SQ is printed, followed by the e summed values, 

g = N 

£Ef\ 
ig 

g = 1 
This value is printed as a: 9 digit number with 3 places to 
the right of the decimal. 

k* Sum P is printed, followed by the e(e-l)/2 summed values, 

g = N 

Zp.. 
iJg 

g = 1 

printed 6 per line . This value is printed as a 6 digit number 

with 3 places to the right of the decimal* 

5. Sum P SQ is printed, followed by the e(e-l)/2 summed values,; 

g = N 

Sp 2 .. 

ijg 

g = 1 
printed 6 per line » This value is printed as a 6 digit 
number with 3 places to the right of the decimal. 

6. The e(e-l)/2 correlation coefficients which form the upper- 
half, off -diagonal elements of the matrix are punched. 



DAT E February 7? 193^ 
CODED BY G. C Stone 



APPROVED BY 



p^ZZ 



-, — 1 

LOCATION 


ORDER 


NOTES PAGE 1 




Routine X 1 


' 






00 8k 




Constants 





00 F 
00 F 


i 




1 


00 205F 








00 205F 






2 


iA 221F 
kO 221F 


■ 




3 


Ik 237F 








^0 23TF 


■ 




k 


50 253F 
75 253F 


■ 




5 


Ik 373F 


• 






14-0 373F 






6 


iA i^93F 








kO ^93F 


' 




7 


iA 613F 
kO 613F 






8 


IA 733F 
*J-0 733F 






9 


IX 853F 
to 853F 






10 


00 F 








00 IF 






11 


00 IF 
00 F 






12 


00 IF 
00 IF 


* 




13 


00 F 








00 ( )F 


by interlude in 
7^F ft. (e-l) 




lii 


00 F 








00 ( )F 


by interlude in 
7^ ff . e(e-l)/2 




15 


00 F 
00 F 






16 , 


00 F 








00 (n)f 


by interlude in 
7k ff * 





K k 



LOCATION 


ORDER 


NOTES PAGE 2 




2^ 999N 




Parameters inserted here 




00 25K 








Routine N 1 








00 k^K 








Routine P 1 








00 7kK 




Interlude 





L5 3F 
*l-0 F 






' 1 


LO 18F 
kO 21F 






2 


50 21F 








T5F 




e(e-l) 


3 


10 IF 
S5 F 






k 


kO 22F 
L5 ^F 






5 


kO 2^F 
26 999F 








26 T^N 




2 
Read scores and form p. ., p . ., 

Zp. .* £p . . 





00 7^K 
L5 12F 


from 20^F or 208F " 




kO Ik-L 




Set addresses and tests 


1 


\2. 12L 
L5 15F 






2 


^4-0 15L 

L5 l^F 






3 


^2 15L 

46 i6l 






k 


Ll 22F 








kO 7F 




Set item count 


5 


50 (r)F 
50 5L 


from 2V, by 27 




6 


26 25F 




To N 1 to read. a. . 
i«3 




40 5F 




and return 


7 


50 (r)F 


by 27 






50 7L 




i 



Kk 



LOCATION 


ORDER 


NOTES PAGE 3 


8 


26 25F 
Lk 5F 




To N 1 to read "b. . 


9 


00 IF 

ko 6f 






10 


50 23F 




Clear Q 




26 ITT, 




Waste 


11 


L5 5F 






12 


66 6f 
7J 25L 




a. ./2(a. . + b ') = P../2 
p.' x 10 5 x 2" 59 

1.1 




40 ( )F 


by 1, 18 


-*-(J 


13 


IA- ( )F 
40 ( )F 


by 2 f 20 
by 2, 20 




**u 


ik 


50 ( )F 


by 0, 21 






15 


75 ( )F 
S5 F 
IA ( )F 


by 0, 21 
by 3, 2k 




- Ep2 ij 


16 


40 ( )F 


by 3, 23 








F5 7E 






17 


40 7F 






18 


36 100F 
F5 12L 
kO 12L 






gave all p. . T s been formed to : 
form E 1 routine? 


19 


L5 13L 

L4 20F 


:- 






20 


kO 13L 
L5 14L 








21 


iA 20F 
40 14L 






— Adjust addresses 


22 


L5 16L 
Lk 19F 








23 


4o 16L 
F5 15L 








I 24 


ko 15L 










26 5L 




Loop 


25 


00 F 

00 20Q0F 







K k 



LOCATION 


ORDER 


NOTES PAGE 4 


26 


L5 5F 
00 20F 








27 


46 5L 
46 7L 






_ Interlude 


28 


26 999F 
26 26l 










26 IN 








00 100K 




Form E., Se.* EeT 
i i* l 


0. 


92 135F 
L5 12F 






- 


1 


42 12L 
42 19L 








2 


L5 9F 
42 29L 








3 


L5 10F 
40 2% 






_. Set addresses and test constants 


1* 


L5 11F 
40 28L 








5 


41 7F 
4i 6f 


from 39 T * 43 


• 




6 


41 2F 
4l 3F 








7 


L5 21F 
LO 7F 








8 


40 5F 










LI 7F 




Switch 


9 


32 19L 




Skip to add cycle on 1st test only 




L5 7F 








10 


LO 18F 
40 4F 






Set address of subtraction order 
""" for first subtraction 


11 


L4 12F 
42 12L 






■"■"*■" 


12 


L5 44L 


from 19 






LO ( )F 


by 1, 11, 16 


(1 - P ±J ) * 10 3 * 2~ 59 


13 


L4 6f 








4o 6f 







K 4 



LOCATION 


ORDER 


NOTES PAGE 5 


lk 


F5.2F 
kO 2F 






15 


L5 21F 








16 


LO 2F 
Lk 12L 
kO 12L 






— Adjust subtraction order 


17 


L5 ^F 
LO 2F 






18 


36 12L 
LI 5F 




Test for end of subtraction cycle 


19 


52 2^L 




Skips add cycle on last E 




L5 ( )F 


from 9', 2k 
by 1', 21 


Start add cycle 


20 


L^ 6F 

ko 6f 






21 


F5 19L 
^0 91L 






22 


F5 5F 
kO 3F 






25 


LO 5F 








52 24L 




End of add cycle? 


2k 


22 19L 




Loop 




L5 6f 


from 25 r 




25 


iMr ( )F 


"by 5, 5^ 




26 


^0 ( )F 
50 6f 
75 6f 


it 


Se. . 

E 2 . x 10 x 2~ 59 

7. 


27 


S5 F 








26 28L 




Waste 


28 


L^ ( )F 
kO ( )F 


by ^ 36 


Ee 2 . 

1 


i 29 


L5 6F 






t 


kO ( )F 


^y 2, 37 




j 50 


50 52F 
50 30L 






1 51 


(26 45F) 




To P 1 May be modified by by-pass 




F5 7F 







K k 



LOCATION 


ORDER 


NOTES 


PAGE 6 


32 


40 7F 
FO 21F 


i- 




33 


36 146F 
L5 25L 


■ 


E = e? 

1 to E.E,, routine 
1 J 




34 


L4 20F 
40 25L 


■ . 






35 


L5 28L 
L4 20F 




— Adjust addresses 




36 


4o 28L 

F5 29L 


•■■ 






37 


4o 29L 

L5 7F 








38 


LO 45L 
36 40L 


from 42 


Line feed? 




39 


92 967F 
22 5L 




2 spaces 
Loop 




40 


40 F 
L3 F 


from 38 






. 41 


32 42L 
L5 F 




Line feed? 




42 


26 58L 
92 131F 


from 4l 






43 


22 5L 
00 F 




Loop 




44 


00 F 

00 1000F 








45 


00 F 

00 6> 
00 146k 




Form and store E.E. 







F5 9F 
46 4L 








1 


42 4l 
4i 5F 




— Set initial addresses 




2 


L5 15F 
4o 6l 








3 


LI 21F 
40 4F 




_ 





K4 



LOCATION 


ORDER 


NOTES 


PAGE 7 


k 


50 ( )F 
75 ( )F 


by 0, Ik from 11 
by 1, 9, 16 


6 -39 
E E 4 x 10 x 2 Jy 

i J 




5 


S5 F 
26 6l 




Waste 




6 


Lk ( )F 
^0 ( )F 




2jE, E , 
i j 




7 


F5 4f 
40 4F 


. . .. ■' 






8 


32 11L 
F5 ^L 




End of row? 




9 


40 kL 
L5 6L 


from 8, 18 






10 


L4 20F 
kO 6L 








11 


26 4l 
F5 5F 


from 8 


Loop 




12 


kO 5F 
LO 21F 










13 


36 165F 
L5 >L 






End of form E.E.? 
1 J 




Ik 


LV 19F 
4-0 kL 










15 


F5 9F 
L^ 5F 






Adjust for end of row 




16 


42 kL 
LI 21F 










IT 


L4 5F 
kO kF 










18 


22 9L 
00 F 

00 165K 




Form E. p. . 

_ 11J 







LI 21F 
kO kF 










l 


kl 5F 
L5 9F 










2 


k6 5L 
L5 12F 






Set address and tests 





K k 



LOCATION 



3 
4 

5 
6 

7 
8 

9 
10 
11 
12 
13 
14 

15 
16 

17 



ORDER 



NOTES 



PAGE 8 I K 4 



42 52 
L5 16F 
22 4L 
40 7L 
50 ( )F 
75 ( )F 
S5 F 
26 7L 
L4>( )F 
40 ( )F 
F5 4f 
40 4f 
32 12L 
F5 5L 
40 5L 
L5 7L 
L4 20F 
40 7L 
26 5L 
F5 5F 
40 5F 
LO 21F 
36 183F 
U 21F 
L4 5F 
40 4F 
L5 5L 
L4 19F 
40 5L 
22 % 
00 183K 
L5 17F 
40 7L 
F5 9F 
42 5L 
L5 12F 
46 5L 



by 2 from 12 
by 3, 10 



by 4, 11 



from 17 



from 9 



Waste 



6 -39 
E.p_ x 10 x 2 Jy 
1 ij 



Waste 



EE.p. . x 10 x 2" 59 

1 ij 



End of row? 



_ Adjust if row not complete 



Loop 



E.p. . complete? 

-A- -'-fcj 



- Adjust if row complete 



Form E.p. . 



— Set addresses and tests 



LOCATION 


ORDER 




NOTES PAGE 9 


3 


LI 21F 
kO kF 






k 


kl 5F 








26 5L 




Waste 


5 


50 ( )F 
75 ( )F 


by 2, 10, from 12' 
by 1, 10 


6 -39 
E a p. 4 x 10 x 2 "^ 


6 


S5 F 








26 7L 




Waste 


7 


L^ ( )F 


by 0, 12 


/* "7^-v 


8 


^0 ( )F 
F5 hF 
il-0 4f 


it 


EE 4 p. 4 x 10 x 2~ 59 


9 


36 13L 




End of row? 




L5 5L 


from 18 




10 


Lk 20F 
40 5L 






11 


L5 7L 
I,k 20F 




Adjustj row not complete 


12 


^0 7L 








26 5L 




. Loop 


13 


F5 5F 
kO 5F 


from 9 




1^ 


LO 21F 








36 19L 




E.p, . complete? 


15 


LI 21F 








IA 5F 




-Adjust, row complete 


16 


kO kF 
L5 9F 






17 


L4 5F 
42 5L 






18 


22 9L 

00 F 






19 


F5 8f 
kO 8f 






20 


LO 2^F 








34 999F 




Ready for print sums? 


21 


26 7^F 
00 F 




Loop to read another group 



K k 



LOCATION 



ORDER 



NOTES 



PAGE 10 



K 4 



22 2k -jkF 
L5 25L 

23 40 131F 
L5 26L 

24 40 137F 
26 74F 

25 22 131F 
F5 7F 

26 40 129F 
22 105F 
26 205N 

[Spaces - Data inserted here.] 

00 35K 
Routine R 1 

00 74K 
K5 F 
42 13L 
F5 13L 
42 7L 
42 10L 

01 7F 

3 01 12F 
40 15L 

4 F5 17L 
40 17L 

5 LO 15L 
36 11L 

6 L5 l6L 
LO 17L 

7 22 7L 
36 ( )F by 1 

8 92 131F 
92 515F 

9 L5 16L 
L4 14L 

10 40 16L 

26 ( )F by 2 



Bypass score print with WS 



Establish print bypass 



Orders to be planted for bypass 



Rectangular matrix S-R 



— Plant links 



Store test 



Matrix complete? 



Waste 

Line feed? link 



Adjust line feed test 



Link 



LOCATION 


— *-■ ■■■■■"-'-■ 

OEDER 




NOTES PAGE 


11 


11 


92 135F 
kl 17L 


from 5 T 








12 


L5 l^L 
LO 18F 






Reset line feed test 




13 


ko i6l 












22 ( )F 


by 


Link 




Ik 


00 F 
00 6f 










15 


00 F 
00 ( )F 


by 3 


Test 




16 


00 F 
00 (5)F 


by 10, 13 






17 


00 F 
00 ( )F 
00 92K 




Count 

Print sums (overwritten) 







92 135F 
92 259F 








1 


92 706F 
92 ^50F 




s 

U 




2 


92 6k3F 
92 963F 




M 
space 




3 


92 19^F 
92 131F 




E 




4 


92 707F 
L5 ( )F 


by 9, 50, from 10 






5 


50 7^F 
50 5L 








6 


26 ^5F 
92 963F 




To P 1 




7 


50 ( )F 
50 7L 


by kl 






8 


26 7^F 
22 10L 




To matrix routine 
when all sum E's printed 




9 


F5 4L 


from S~R 


L Ad just address 






4o 4l 






10 


22 kL 
92 259F 


from 8' 


Loop 





K k 



LOCATION 


ORDER 




NOTES PAGE 12 


11 


92 706F 




S 




92 450F 




U 


12 


92 6^3F 




M 




92 963F 




space 


15 


92 19^F 




E 




92 963F 




space 


.11* 


92 706F 




S 




92 66f 




Q 


15 


92 131F 
92 707F 






16 


50 45L 
7J ( )F 


from 22 
by 21, 51 


Eg 2 ., x 10 5 x 2~ 59 


17 


50 96F 
50 17L 






18 


26 1*5F 




To P 1 




26 19L 




Waste 


19 


50 ( )F 
50 19L 


by 471 




20 


26 7^F 




To Rectangular Jfetrix S-^R 




22 22L 




-where all sum E S Q's printed 


21 


F5 16L 
40 16L 


from S-R 


"1 Adjust address 


22 


26 i6l 




^ and loop 




92 259F 


from 20 T 




23 


92 706F 




s 




92 450F 




u 


2k 


92 6^5F 




M 




92 963F 




space 


25 


92 2F 
92 151F 




P 


26 


92 707F 








L5 ( )F 


by 31, 52, from 32 




27 


50 63F 
50 27L 






28 


26 kjF 




To P 1 




92 967F 


from S-R 




29 


50 ( )F 
50 29L 


by k9 





K h 



LOCATION 


ORDER 


NOTES PAGE 13 


30 


26 7^F. 








22 32L 


from S-R 


When all Zp's punched 


31 


F5 26L 
kO 26L 


from S^E 




except last time 
Adjust address and loop 


32 


22 26L 




-*- 






92 259F 


from 30' 




33 


92 706F 




S 




92 V>QF 




U 


3^ 


92 643F 




M 




92 963F 




space 


35 


92 2F 




P 




92 963F 




space 


36 


92 706F 




S 




92 66F 




Q 


37 


92 131F 
92 707F 






38 


50 kjL 
TJ ( )F 


from kk 
hy ^3, 53 


Ep 2 . .x 10 5 x 2" 59 


39 


50 63F 






50 39L 






ko 


26 k^F 
92 967F 




To P 1 


kl 


50 ( )F 
50 to 


hy 491 




kl 


26 7^F 




When all Zp punched 




2k 999F 


from S-R 


Last time only 


h3 


F5 38L 
ko 38L 


from S-R 




Except last time 
— Adjust address and loop 


kk 


26 38L 










00 F 






k$ 


00 F 

00 10 0000 


0000 J 


Waste 
10- 5 


k6 


F5 21F 
00 20F 






Set program parameter 
for rectangular 


k7 


k6 7L 
k6 19L 






matrix routine - Interlude 


kQ 


L5 22F 
00 20F 









K k 



LOCATION 


ORDER 


NOTES PAGE 14 


49 


46 29L 
46 4lL 






50 


L5 10F 








42 4L 




Set addresses 


51 


L5 UP 




and counts - 




42 l6L 




Interlude continued 


52 


L5 15F 
42 26L 






53 


L5 l4F 
42 3% 






54 


24 OL 
26 999F 
26 138N 




Bypass print if ¥. S» raised 




00 30K - OOF 001 OOOF 






00 92K 




Set up for correlation (adjust 
for bias) 





41 5F 








40 5F 




Waste 


1 


LO 21F 
40 4F 






2 


L5 ( )F 
LO ( )F 


by 40, 48 
by 4, 53 


Ex - Ee. ~ Ep,. x 10 5 x 2~ 59 


3 


4o 25F 
F5 2L 






^ 


40 2L 








50 24F 






5 


71 30F 
00 39F 




- Ey = Ee '- n + Ep 


6 


L4 ( )F 


by 8, 42, 50 






L4 ( )F 


by 8, 5k 




T 


40 26F 




■ 




L5 6L 






8 


L4 20F 




— Adjust addresses 




4o 6l 






9 


L5 ( )F 


by 44, 51 




10 


L4 ( )F 
LO ( )F 


by 12, 56 
by 13, 59 


- a 2 ■ 2*i 2 - .^j + * 2 ij 




LO ( )F 


by 13, 59 :- 


"" 



K4 



LOCATION 


ORDER 


NOTES 


PAGE 15 


11 


kO 27F 
F5 9L 








12 


ho 9L 
L5 10L 




— ■ Adjust addresses 




15 


IA 20F 
40 10L 








111- 


50 2^F 
75 50F 








15 


S5 F 
hO F 








16 


LI ( )F 
LO ( )F 


by 25' i hZ, 50 
by 25', 5^ 






17 


00 IF 










iA F 




- Ex 2 = Ze. 2 - 2Ee. 


+ 2ZE .p* . + N 


18 


ij-O'F 
50 F 




- 2Ep. ."■+ Ep 2 . . 
^0 ^o 




19 


75 50F 
00 59F 








20 


iA ( )F 
iA ( )F 


by 25, k5, 52 
by 25, 61 






21 


iA ( )F 
IA ( )F 


by 26', 61 
by 26% 56 






' 22 


4o 28F 
L5 16L 








25 


iA 20F 
^0 i6l 








2h 


L5 20L 
IA 20F 




_ Adjust addresses 




25 


Ao 20L 
L5 21L 








26 


IA 20F 
40 21L 








27 


LI ( )F 
IA ( )F 


by ±H, A9 






28 


±1-0 F 








29 


50 F 
75 50F 
00 59F 




- Exy = Ze.e. - Ze. 

1 J 1 

+ Zp . . ■- Zp . . 


+ ZE.p. . - ZE.p. . 



K h 



LOCATION 


ORDER 
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30 


L4 ( )F 
L4 ( )F 


by 35, 58 
by 35, 60 






31 


LO ( )F 
LO ( )F 


by 36, 62 
by 36, 57 






32 


40 29F 
L5 27L 








33 


L4 18F 
40 27L 








34 


L5 30L 
L4 20F 




— Adjust addresses 




35 


40 30L 
L5 31L 








36 


L4 20F 
40 31L 








37 


26 140F 




To correlation routine 






F5 4f 


from 171F 


End of row? 




38 


40 4F 
32 39L 








39 


26 2L 
L5 2L 








40 


L4 19F 
40 2L 








41 


46 27L 








42 


L4 19F 
46 6l 
46 16L 




_- Reset addresses at end of 


row 


43 


L5 9L 
L4 19F 








44 


40 9L 
L4 19F 








45 


46 20L 
F5 5F 








46 


40 5F 
LO 21F 




— Adjust row length test 




47 


4o 4f 
26 2L 




Loop 




48 


L5 10F 
46 2L 


from 63 . ~ 







K 4 



LOCATION 



^9 

50 

51 
52 
53 
5^ 
55 
56 

57 
58 
59 
60 
61 
62 
63 



ORDER 



46 27L 
L4 19F 
46 6l 
46 16L 
L5 11F 
46 % 
L4 19F 
46 20L 
L5 13F 
42 2L 
42 6L 
42 16L 
42 27L 
L5 14F 
42 9L 
42 21L 
42 31L 
L5 15F 
46 30L 
L5 16F 
46 10L 
42 10L 
42 30L 
L5 1TF 
42 20L 
46 21L 
46 31L 
26 999F 
22 63L 
26 48L 
26 IN 
00 ikYL 
K5 F 
42 9L 
F5 9L 
42 10L 
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_■ Interlude to set initial addresses 



K4 



Waste 



Triangular matrix routine 



Establish links 



LOCATION 


ORDER 


NOTES PAGE 18 ] 


2 


L5 21F 
LO 12L 






- Row test 


3 


kO 13L 










F5 11L 






k 


i^O 11L 
LO 13L 






5 


36 6l 

26 10L 




Row complete? 


6 


lH 11L 
92 131F 






7 


92 77OF 
92..135F 




"N" 


8 


F5 12L 
kO 12L 






9 


LO 21F 








32 ( )F 


by 


Matrix complete? 


10 


92 131F 


from 5 






26 ( )F 


by 1 


Link 


11 


00 F 
00 F 




Punch count 


12 


00 F 
OOF 




Row count 


13 


OOF 




Length of row test 




00 ( )F 


by 3 






00 l^OK 




Correlation routine 





50 25F 
7J 32L 








1 


kO 25F 
50 26F 








2 


7 J 32L 
kO 26F 








3 


50 27F 
7J 31L 






— Scaling 


1* 


i*-0 27F 

50 28F 








5 


7J 31L 
^0 28F 









Kk 



LOCATION 


ORDER 
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K4 


6 


50 29F 
TJ 31L 










7 


.'■kO. 29F 












50 25F 








8 


75 25F 








9 


S5 F 
li-0 IF 

kl F 




(St) 2 x 10 4 x 2~ 59 

Clear zero for square root 




10 


50 27F 
75 2^F 








11 


S5 F 
LO IF 




CnEx 2 > (Exf] x 10^ x 2" 59 




12 


00 IF 
50 12L 








13 


26 35F 

ko 6f 


f rom B*R 


To square root 
nE* 2 ~ (Ex) 2 x 10 2 x 2" 19 




Ik 


50 26F 
75 26f 






> 


15 


S5 F 
kO IF 




Sy 2 x lO 4 x 2~ 59 




16 


50 28F 
75 2k? 








IT 


S5 F 
LO IF 




[NSY 2 - (EY) 2 ] x 10 4 x 2~ 39 




18 


00 IF 








19 


50 18L 
26 35F 
kO IF 




'■'■>:-£a^: : * : 0[f. x io 2 x 2* 19 




20 


50 IF 
7J 6f 




nE^ « (SO 2 nEy 2 - (Ey) 2 x xo k 


o-38 

x 2 v 


21 


ko 6f 

50 25F 








22 


75 26f 








23 


S5 F 
.40 25F 
50 29F 




ExEyx io 1 * x 2~ 39 





LOCATION 


ORDER 
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2k 


75 2^F 
S5 F 


' ' ' .';' ■'''.: ' '■ ■ 


i ., _ 


25 


LO 25F 




(I&Y - EXZY) x 10 4 x 2^ 9 




66 6y 




r/2 


26 


S5 F 








00 IF 




■ r ■ ■ 


27 


52 57F 
50 27L 






28 


26 ^5F 




To f 1 




50 28L 


from P.I 




29 


26 7^F 




To triangular matrix routine 




OF F 


from S-R 
last time only 




30 


22 129F 
00 F 


from SrB 
except last time 


To adjust "bias routine 


51 


00 F 








*2' 






00 10 000 000 000 J 10 




52 


00 F I 

00. 100 000 000 000 J lo" 1 






26 92N 




■■ • ■' 



K k 



